unit Unit9;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DBCtrls, Mask, ExtCtrls;

type
  TForm9 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    DBNavigator1: TDBNavigator;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    Label5: TLabel;
    Label6: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

uses Unit4;
Var
Flag:boolean;
{$R *.dfm}

procedure TForm9.BitBtn1Click(Sender: TObject);
begin
{DataModule4.bInsert.ParamByName('P1').AsString:=DBEdit1.Text;
DataModule4.bInsert.ParamByName('P2').AsString:=DBEdit2.Text;
DataModule4.bInsert.ParamByName('P3').AsString:=DBEdit3.Text;
DataModule4.bInsert.ParamByName('P4').AsString:=DBEdit4.Text;
DataModule4.bInsert.ParamByName('P5').AsString:=DBEdit4.Text;
DataModule4.bInsert.ExecSQL;    }
Flag:=false;
end;

procedure TForm9.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
if Button=nbInsert then
  begin
    //EnableUpdate(Form5);
    Flag:=true;
   // BitBtn2.Enabled:=false;
   // CheckBox1.Enabled:=false;
  End;
if Button=nbDelete then
  begin
  //DataModule4.bDel.ParamByName('P1').AsString:=DBEdit1.Text;
  //DataModule4.bDel.ExecSql;
  End;
end;

procedure TForm9.BitBtn2Click(Sender: TObject);
begin
DataModule4.badmtest.Cancel;
end;

end.
